Delphi 2 - Developers' Solutions/Delphi 2 Developers' Solutions.iso/dds/chap10/howto04/cciccfrm.dfm/cciccfrm.txt

Text File | 1996-06-12 | 22.6 KB | 827 lines

object CCINetCCForm: TCCINetCCForm
  Left = 338
  Top = 121
  Width = 614
  Height = 443
  Caption = 'CC Internet Command Center'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 356
    Width = 606
    Height = 41
    Align = alBottom
    Alignment = taLeftJustify
    BevelInner = bvLowered
    BevelWidth = 3
    Caption = '  Status: Off Line'
    TabOrder = 0
    object Panel2: TPanel
      Left = 294
      Top = 6
      Width = 306
      Height = 29
      Align = alRight
      BevelOuter = bvLowered
      BevelWidth = 3
      TabOrder = 0
      object Gauge1: TGauge
        Left = 3
        Top = 3
        Width = 300
        Height = 23
        Align = alClient
        Progress = 0
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 606
    Height = 41
    Align = alTop
    BevelWidth = 3
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 73
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Subject:'
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 8
      Width = 417
      Height = 24
      ItemHeight = 16
      TabOrder = 0
    end
    object Button1: TButton
      Left = 512
      Top = 8
      Width = 89
      Height = 25
      Caption = 'Action'
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 41
    Width = 185
    Height = 315
    Align = alLeft
    BevelInner = bvLowered
    BevelWidth = 3
    BorderWidth = 5
    TabOrder = 2
    object Label4: TLabel
      Left = 11
      Top = 11
      Width = 163
      Height = 16
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Caption = 'Mailboxes'
    end
    object Label5: TLabel
      Left = 11
      Top = 145
      Width = 163
      Height = 16
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Caption = 'Current Messages'
    end
    object Panel6: TPanel
      Left = 11
      Top = 27
      Width = 163
      Height = 118
      Align = alTop
      BevelOuter = bvLowered
      BevelWidth = 3
      TabOrder = 0
      object ListBox1: TListBox
        Left = 3
        Top = 3
        Width = 157
        Height = 112
        Align = alClient
        ItemHeight = 16
        MultiSelect = True
        TabOrder = 0
        OnClick = ListBox1Click
        OnDblClick = ListBox1DblClick
      end
    end
    object Panel7: TPanel
      Left = 11
      Top = 161
      Width = 163
      Height = 40
      Align = alTop
      BevelWidth = 3
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 8
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Previous Item'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 37
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Next Item'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton4: TSpeedButton
        Left = 70
        Top = 8
        Width = 25
        Height = 25
        Hint = 'UUDecode Item(s)'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
          FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
          00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
          F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
          00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
          F033777777777337F73309999990FFF0033377777777FFF77333099999000000
          3333777777777777333333399033333333333337773333333333333903333333
          3333333773333333333333303333333333333337333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
      end
      object SpeedButton5: TSpeedButton
        Left = 132
        Top = 8
        Width = 25
        Height = 25
        Hint = 'Move Item(s) to Trash'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
          3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
          03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
          33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
          0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
          3333333337FFF7F33333333330000033333333333777773333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton5Click
      end
      object SpeedButton3: TSpeedButton
        Left = 102
        Top = 8
        Width = 25
        Height = 25
        Hint = 'MIME Decode Item(s)'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
      end
    end
    object ListBox2: TListBox
      Left = 11
      Top = 201
      Width = 163
      Height = 103
      Align = alClient
      ItemHeight = 16
      MultiSelect = True
      TabOrder = 2
      OnClick = ListBox2Click
      OnDblClick = ListBox2DblClick
    end
  end
  object Panel5: TPanel
    Left = 185
    Top = 41
    Width = 421
    Height = 315
    Align = alClient
    BevelInner = bvLowered
    BevelWidth = 3
    BorderWidth = 5
    TabOrder = 3
    object Memo1: TMemo
      Left = 11
      Top = 52
      Width = 399
      Height = 252
      Align = alClient
      Lines.Strings = (
        '')
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object Panel8: TPanel
      Left = 11
      Top = 11
      Width = 399
      Height = 41
      Align = alTop
      BevelWidth = 3
      TabOrder = 1
      object Label2: TLabel
        Left = 8
        Top = 13
        Width = 33
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'To:'
        Visible = False
      end
      object Label3: TLabel
        Left = 200
        Top = 13
        Width = 33
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'CC:'
        Visible = False
      end
      object ComboBox2: TComboBox
        Left = 48
        Top = 8
        Width = 145
        Height = 24
        ItemHeight = 16
        TabOrder = 0
        Visible = False
      end
      object ComboBox3: TComboBox
        Left = 240
        Top = 8
        Width = 145
        Height = 24
        ItemHeight = 16
        TabOrder = 1
        Visible = False
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 520
    Top = 216
    object Network1: TMenuItem
      Caption = 'Network'
      ShortCut = 0
      object ViewWinsockInfo1: TMenuItem
        Caption = 'View Winsock Info'
        ShortCut = 0
        object Description1: TMenuItem
          Caption = 'Description'
          ShortCut = 0
          OnClick = Description1Click
        end
        object SystemStatus1: TMenuItem
          Caption = 'System Status'
          ShortCut = 0
          OnClick = SystemStatus1Click
        end
        object VendorSpecific1: TMenuItem
          Caption = 'Vendor Specific'
          ShortCut = 0
          OnClick = VendorSpecific1Click
        end
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ProgressInfo1: TMenuItem
        Caption = 'Progress Info'
        ShortCut = 0
        object ViewInEditWindow1: TMenuItem
          Caption = 'View In Edit Window'
          ShortCut = 0
          OnClick = ViewInEditWindow1Click
        end
        object ViewInStatusLine1: TMenuItem
          Caption = 'View In Status Line'
          Checked = True
          ShortCut = 0
          OnClick = ViewInStatusLine1Click
        end
        object SaveToFile1: TMenuItem
          Caption = 'Save To File...'
          ShortCut = 0
          OnClick = SaveToFile1Click
        end
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Services1: TMenuItem
      Caption = 'Services'
      ShortCut = 0
      object IPAddress1: TMenuItem
        Caption = 'IP Address'
        ShortCut = 0
        OnClick = IPAddress1Click
      end
      object EMail1: TMenuItem
        Caption = 'E Mail'
        ShortCut = 0
      end
      object FTP1: TMenuItem
        Caption = 'FTP'
        ShortCut = 0
        OnClick = FTP1Click
      end
      object UsenetNws1: TMenuItem
        Caption = 'Usenet News'
        ShortCut = 0
        OnClick = UsenetNws1Click
      end
    end
    object Files1: TMenuItem
      Caption = 'Files'
      ShortCut = 0
      object Load1: TMenuItem
        Caption = 'Load...'
        ShortCut = 0
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = 'Save...'
        ShortCut = 0
        OnClick = Save1Click
      end
      object Encoding1: TMenuItem
        Caption = 'Encoding'
        ShortCut = 0
        object UUDecode1: TMenuItem
          Caption = 'UUDecode'
          ShortCut = 0
          object File1: TMenuItem
            Caption = 'File...'
            ShortCut = 0
          end
          object SelectedArticle1: TMenuItem
            Caption = 'Selected Article'
            ShortCut = 0
          end
          object SelectMultipleArticles1: TMenuItem
            Caption = 'Select Multiple Articles'
            ShortCut = 0
          end
          object DecodeSelections1: TMenuItem
            Caption = 'Decode Multiple Selections'
            ShortCut = 0
          end
        end
        object MIMEDecode1: TMenuItem
          Caption = 'MIME Decode...'
          ShortCut = 0
        end
        object UUEncode1: TMenuItem
          Caption = 'UUEncode...'
          ShortCut = 0
        end
        object MIMEEncode1: TMenuItem
          Caption = 'MIME Encode'
          ShortCut = 0
          object ToCurrentMessage1: TMenuItem
            Caption = 'To Current Message'
            ShortCut = 0
          end
          object ToNewMessage1: TMenuItem
            Caption = 'To New Message'
            ShortCut = 0
          end
          object ToFile2: TMenuItem
            Caption = 'To File...'
            ShortCut = 0
          end
        end
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cut'
        ShortCut = 0
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ShortCut = 0
        OnClick = Copy1Click
      end
      object CopytoFile1: TMenuItem
        Caption = 'Copy to File...'
        ShortCut = 0
        OnClick = CopytoFile1Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ShortCut = 0
        OnClick = Paste1Click
      end
      object PastefromFile1: TMenuItem
        Caption = 'Paste from File...'
        ShortCut = 0
        OnClick = PastefromFile1Click
      end
    end
    object EMail2: TMenuItem
      Caption = 'EMail'
      Enabled = False
      ShortCut = 0
      object CheckMail1: TMenuItem
        Caption = 'Check New Mail'
        ShortCut = 0
      end
      object CreateNewMessage1: TMenuItem
        Caption = 'Create New Message'
        ShortCut = 0
      end
      object ReplyToCurrentMessage1: TMenuItem
        Caption = 'Reply To Current Message'
        ShortCut = 0
      end
      object SendCurrentMessage1: TMenuItem
        Caption = 'Send/Queue Current Message'
        ShortCut = 0
      end
      object SendQueue1: TMenuItem
        Caption = 'Send Queue'
        ShortCut = 0
      end
      object MailServers1: TMenuItem
        Caption = 'Mail Servers...'
        ShortCut = 0
      end
      object Mailboxes1: TMenuItem
        Caption = 'Mailboxes...'
        ShortCut = 0
      end
      object Correspondents1: TMenuItem
        Caption = 'Correspondents...'
        ShortCut = 0
      end
      object TrashMarkedMessages1: TMenuItem
        Caption = 'Trash Marked Messages'
        ShortCut = 0
      end
      object EmptyTrash1: TMenuItem
        Caption = 'Empty Trash'
        ShortCut = 0
      end
      object ExitEMailRequired1: TMenuItem
        Caption = 'Exit EMail (Required!)'
        ShortCut = 0
      end
    end
    object FTP2: TMenuItem
      Caption = 'FTP'
      Enabled = False
      ShortCut = 0
      object ConnectToSite1: TMenuItem
        Caption = 'Connect To Site'
        ShortCut = 0
        OnClick = ConnectToSite1Click
      end
      object Disconnect1: TMenuItem
        Caption = 'Disconnect'
        Enabled = False
        ShortCut = 0
        OnClick = Disconnect1Click
      end
      object UploadMarked1: TMenuItem
        Caption = 'Upload Marked'
        Enabled = False
        ShortCut = 0
        object ASCII1: TMenuItem
          Caption = 'ASCII'
          ShortCut = 0
          OnClick = ASCII1Click
        end
        object Binary1: TMenuItem
          Caption = 'Binary'
          ShortCut = 0
          OnClick = Binary1Click
        end
      end
      object DownloadMarked1: TMenuItem
        Caption = 'Download Marked'
        Enabled = False
        ShortCut = 0
        object ASCII2: TMenuItem
          Caption = 'ASCII'
          ShortCut = 0
          object ToFile1: TMenuItem
            Caption = 'To File'
            ShortCut = 0
            OnClick = ToFile1Click
          end
          object ToDisplay1: TMenuItem
            Caption = 'To Display'
            ShortCut = 0
            OnClick = ToDisplay1Click
          end
        end
        object Binary2: TMenuItem
          Caption = 'Binary'
          ShortCut = 0
          OnClick = Binary2Click
        end
      end
      object Directory1: TMenuItem
        Caption = 'Directory'
        Enabled = False
        ShortCut = 0
        object ViewRemoteasText1: TMenuItem
          Caption = 'Remote'
          ShortCut = 0
          object ViewasText1: TMenuItem
            Caption = 'View as Text'
            ShortCut = 0
            OnClick = ViewasText1Click
          end
          object Change1: TMenuItem
            Caption = 'Change...'
            ShortCut = 0
            OnClick = Change1Click
          end
          object Create1: TMenuItem
            Caption = 'Create...'
            ShortCut = 0
            OnClick = Create1Click
          end
          object Delete3: TMenuItem
            Caption = 'Delete...'
            ShortCut = 0
            OnClick = Delete3Click
          end
        end
        object ChangeLocal1: TMenuItem
          Caption = 'Change Local...'
          ShortCut = 0
          OnClick = ChangeLocal1Click
        end
      end
      object DeleteRemoteFiles1: TMenuItem
        Caption = 'Delete Remote Files'
        ShortCut = 0
        OnClick = DeleteRemoteFiles1Click
      end
      object FTPSites1: TMenuItem
        Caption = 'FTP Sites...'
        ShortCut = 0
        OnClick = FTPSites1Click
      end
    end
    object News1: TMenuItem
      Caption = 'News'
      Enabled = False
      ShortCut = 0
      object ConnectandUpdate1: TMenuItem
        Caption = 'Connect and Update'
        ShortCut = 0
        OnClick = ConnectandUpdate1Click
      end
      object Disconnect2: TMenuItem
        Caption = 'Disconnect'
        Enabled = False
        ShortCut = 0
        OnClick = Disconnect2Click
      end
      object Headers1: TMenuItem
        Caption = 'Headers'
        Enabled = False
        ShortCut = 0
        object RetrieveMarked1: TMenuItem
          Caption = 'Retrieve Marked'
          ShortCut = 0
        end
        object RetrieveAll1: TMenuItem
          Caption = 'Retrieve All'
          ShortCut = 0
        end
        object Catchup1: TMenuItem
          Caption = 'Catchup'
          ShortCut = 0
          object Marked1: TMenuItem
            Caption = 'Marked'
            ShortCut = 0
            OnClick = Marked1Click
          end
          object All1: TMenuItem
            Caption = 'All'
            ShortCut = 0
            OnClick = All1Click
          end
        end
      end
      object CheckNewNews1: TMenuItem
        Caption = 'Check New News'
        Enabled = False
        ShortCut = 0
        OnClick = CheckNewNews1Click
      end
      object GetMarked1: TMenuItem
        Caption = 'Retrieve Marked Articles'
        Enabled = False
        ShortCut = 0
      end
      object Article1: TMenuItem
        Caption = 'Article'
        Enabled = False
        ShortCut = 0
        object NewArticle1: TMenuItem
          Caption = 'New Article'
          ShortCut = 0
        end
        object FollowupArticle1: TMenuItem
          Caption = 'Followup Article'
          ShortCut = 0
        end
        object PutinQueue1: TMenuItem
          Caption = 'Put in Queue'
          ShortCut = 0
        end
      end
      object Post1: TMenuItem
        Caption = 'Post'
        Enabled = False
        ShortCut = 0
        object CurrentArticle1: TMenuItem
          Caption = 'Current Article'
          ShortCut = 0
        end
        object EntireQueue1: TMenuItem
          Caption = 'Entire Queue'
          ShortCut = 0
        end
      end
      object NewsServers1: TMenuItem
        Caption = 'News Servers...'
        ShortCut = 0
        OnClick = NewsServers1Click
      end
      object SubscribedNewsgroups1: TMenuItem
        Caption = 'Subscribed Newsgroups...'
        Enabled = False
        ShortCut = 0
        OnClick = SubscribedNewsgroups1Click
      end
      object Trash1: TMenuItem
        Caption = 'Trash'
        Enabled = False
        ShortCut = 0
        object AllReadArticles1: TMenuItem
          Caption = 'All Read/Sent Articles'
          ShortCut = 0
          OnClick = AllReadArticles1Click
        end
        object AllMarkedArticles1: TMenuItem
          Caption = 'All Marked Articles'
          ShortCut = 0
          OnClick = AllMarkedArticles1Click
        end
        object AllAvailableArticles1: TMenuItem
          Caption = 'All Available Articles'
          ShortCut = 0
          OnClick = AllAvailableArticles1Click
        end
      end
      object DownloadActiveNewsgroups1: TMenuItem
        Caption = 'Download Active Newsgroups...'
        Enabled = False
        ShortCut = 0
        OnClick = DownloadActiveNewsgroups1Click
      end
      object AbortNewsgroupDownload1: TMenuItem
        Caption = 'Abort Newsgroup Download'
        ShortCut = 0
        OnClick = AbortNewsgroupDownload1Click
      end
    end
    object Preferences1: TMenuItem
      Caption = 'Options'
      ShortCut = 0
      object EMail3: TMenuItem
        Caption = 'E Mail...'
        ShortCut = 0
      end
      object FTP3: TMenuItem
        Caption = 'FTP...'
        ShortCut = 0
        OnClick = FTP3Click
      end
      object News2: TMenuItem
        Caption = 'News...'
        ShortCut = 0
        OnClick = News2Click
      end
      object Paths1: TMenuItem
        Caption = 'Paths...'
        ShortCut = 0
        OnClick = Paths1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Left = 520
    Top = 248
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Left = 488
    Top = 248
  end
end